home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-2.dxr / Internal_24_botó disminució temporitzador.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  670 b   |  27 lines
  1. on mouseDown
  2.   global nTempo
  3.   if nTempo > 60 then
  4.     set nTempo to nTempo - 60
  5.     set the member of sprite 8 to member string(nTempo / 60) of castLib "Elementos graficos"
  6.     updateStage()
  7.   else
  8.     set nTempo to 60
  9.   end if
  10.   startTimer()
  11.   repeat while the stillDown
  12.     if the timer > 30 then
  13.       if nTempo > 60 then
  14.         set nTempo to nTempo - 60
  15.         set the member of sprite 8 to member string(nTempo / 60) of castLib "Elementos graficos"
  16.         updateStage()
  17.       else
  18.         set nTempo to 60
  19.       end if
  20.       set nDelay to the timer + 5
  21.       repeat while the timer < nDelay
  22.         set xx to xx + 1
  23.       end repeat
  24.     end if
  25.   end repeat
  26. end
  27.